1000 A=200:GOTO 20:REM SUDOKU
1010 CC(0)=0:CC(1)=7:GOSUB 100:DIM Z$(9,9):DIM A$(4)
1020 SV=0:SP=65:T=0:DIM A(9,9)
1030 GOSUB 260:FOR I=0 TO INT(RV*11)
1040 READ X$,Y$:NEXT I:Y$=X$+Y$
1050 GOSUB 100:GOSUB 110
1060 GOTO 4420
1070 Y$="00":PRINT "1109 Y$=";CHR$(34);"00";
1080 FOR I=0 TO 80
1090 GOSUB 210:IF IN$="" THEN 1090
1100 IF ASC(IN$)<49 OR ASC(IN$)>57 THEN 1130
1110 Y$=Y$+CHR$(ASC(IN$)+16)
1120 GOTO 1140
1130 Y$=Y$+CHR$(96):IN$=CHR$(80)
1140 PRINT CHR$(ASC(IN$)+16);:NEXT I:PRINT CHR$(34):RETURN
1150 GOSUB 200:I=IN:IF I=0 THEN 1150
1160 RETURN
1170 N$="123456789"
1180 L=16
1190 FOR X=1 TO 9
1200 IF A(X,X1)=0 THEN 1220
1210 N$=LEFT$(N$,A(X,X1)-1)+"0"+RIGHT$(N$,9-A(X,X1))
1220 IF A(Y1,X)=0 THEN 1240
1230 N$=LEFT$(N$,A(Y1,X)-1)+"0"+RIGHT$(N$,9-A(Y1,X))
1240 NEXT X
1250 FOR R=Y2 TO Y2+2
1260 FOR C=X2 TO X2+2
1270 IF A(R,C)=0 THEN 1290
1280 N$=LEFT$(N$,A(R,C)-1)+"0"+RIGHT$(N$,9-A(R,C))
1290 NEXT C
1300 NEXT R
1310 FOR X=1 TO 9
1320 IF MID$(N$,X,1)<>"0" THEN 1340
1330 L=L-1
1340 NEXT X
1350 IF L<>7 THEN 1380
1360 HO=6:VE=22:GOSUB 110:SR$=E$+"  ":GOSUB 150
1370 HO=16:GOSUB 110:PRINT " NICHTS ";
1380 IF L=7 THEN 1460
1390 HO=6:VE=22:GOSUB 110:PRINT "                  ";
1400 GOSUB 110:SR$=E$+"  ":GOSUB 150:HO=26-L:VE=22
1410 GOSUB 110
1420 FOR X=1 TO 9
1430 IF MID$(N$,X,1)="0" THEN 1450
1440 PRINT " ";MID$(N$,X,1);
1450 NEXT X:PRINT " ";
1460 RETURN
1470 HO=6:VE=22:GOSUB 110:SR$="  AUGENBLICK  BITTE  "
1480 GOSUB 150
1490 HO=10:GOSUB 110:PRINT " AUGENBLICK  BITTE "
1500 Y=1
1510 FOR X=4 TO 12
1520 HO=2*4-1:VE=2*Y:GOSUB 110
1530 FOR B=1 TO 7 STEP 3
1540 VE=2*Y+1:GOSUB 110
1550 HO=HO+2:IF A(Y,B)<>0 THEN 1570
1560 GOSUB 110:PRINT " ";:GOTO 1600
1570 SR=VAL(CHR$(A(Y,B)+48)):GOSUB 300
1580 IF SR$="0" THEN 1600 
1590 GOSUB 110:PRINT SR$;
1600 HO=HO+2:IF A(Y,B+1)<>0 THEN 1620
1610 GOSUB 110:PRINT " ";:GOTO 1650
1620 SR=VAL(CHR$(A(Y,B+1)+48)):GOSUB 300
1630 IF SR$="0" THEN 1650
1640 GOSUB 110:PRINT SR$;
1650 HO=HO+2:IF A(Y,B+2)<>0 THEN 1670
1660 GOSUB 110:PRINT " ";:GOTO 1700
1670 SR=VAL(CHR$(A(Y,B+2)+48)):GOSUB 300
1680 IF SR$="0" THEN 1700
1690 GOSUB 110:PRINT SR$;
1700 HO=HO+2:NEXT B
1710 Y=Y+1
1720 NEXT X
1730 RETURN
1740 E1=0:P=0
1750 HO=6:VE=22:GOSUB 110:SR$="    PRUEFE ZEILEN    "
1760 GOSUB 150
1770 HO=12:GOSUB 110:PRINT " PRUEFE ZEILEN "
1780 FOR C=1 TO 9
1790 IF A(Y1,C)<>K THEN 1810
1800 P=1:P1=C:C=9
1810 NEXT C
1820 IF P=0 THEN 1850
1830 C=P1:GOSUB 2340:GOSUB 2180:GOSUB 2240:GOSUB 2590
1840 GOTO 2330
1850 HO=6:VE=22:GOSUB 110:SR$="    PRUEFE SPALTEN   "
1860 GOSUB 150
1870 HO=12:GOSUB 110:PRINT " PRUEFE SPALTEN "
1880 FOR R=1 TO 9
1890 IF A(R,X1)<>K THEN 1910
1900 P=1:P2=R:R=9
1910 NEXT R
1920 IF P=0 THEN 1940
1930 R=P2:GOSUB 2400:GOSUB 2240:GOSUB 2590:GOTO 2330
1940 HO=6:VE=22:GOSUB 110:SR$="   PRUEFE 3X3-FELD   "
1950 GOSUB 150
1960 HO=11:GOSUB 110:PRINT " PRUEFE 3X3-FELD "
1970 FOR C=X2 TO X2+2
1980 FOR R=Y2 TO Y2+2
1990 IF A(R,C)<>K THEN 2010
2000 P=1:P1=C:P2=R:R=9:C=9
2010 NEXT R
2020 NEXT C
2030 IF P=0 THEN 2060
2040 C=P1:R=P2:GOSUB 2070:GOSUB 2120:GOSUB 2180:GOTO 2240
2050 GOSUB 2590:GOTO 2330
2060 RETURN
2070 SR=K:GOSUB 300:S1$=SR$:HO=6:VE=22:GOSUB 110
2080 SR$=" ZWEI "+SR$+"EN IM 3X3-FELD":GOSUB 150
2090 HO=9:VE=22:GOSUB 110
2100 PRINT " ZWEI "+S1$+"EN IM 3X3-FELD "
2110 RETURN
2120 R1=0:R2=0:IF R<=3 THEN 2140
2130 R1=1
2140 IF R<=6 THEN 2160
2150 R2=1
2160 R=2*R+1+0*R1+0*R2
2170 RETURN
2180 C1=0:C2=0:IF C<=3 THEN 2200
2190 C1=1
2200 IF C<=6 THEN 2220
2210 C2=1
2220 C=2*C+7+2*C1+2*C2
2230 RETURN
2240 SD=5:CC(0)=7:KR=-1:FOR X=1 TO 6
2250 VE=R:HO=C:GOSUB 110
2260 PRINT " ";:VE=RD:HO=CD:GOSUB 110
2270 PRINT " ";:VE=R:HO=C:GOSUB 110
2280 PRINT CHR$(K+48);:VE=RD:HO=CD:GOSUB 110
2290 PRINT CHR$(K+48);
2300 CC(0)=CC(0)+5*KR:KR=-KR:GOSUB 400:NEXT X:IN=10:VE=R
2310 HO=C:CC(0)=0:GOSUB 110:PRINT CHR$(K+48);
2320 E1=-1
2330 RETURN
2340 HO=6:VE=22:GOSUB 110
2350 SR$="  "+CHR$(K+48)+" DOPPELT IN ZEILE ":GOSUB 150
2360 HO=10:GOSUB 110
2370 PRINT " "+CHR$(K+48)+" DOPPELT IN ZEILE "
2380 R=RD
2390 RETURN
2400 HO=6:VE=22:GOSUB 110
2410 SR$=" "+CHR$(K+48)+" DOPPELT IN SPALTE ":GOSUB 150
2420 HO=9:GOSUB 110
2430 PRINT " "+CHR$(K+48)+" DOPPELT IN SPALTE "
2440 R1=0:R2=0:IF R<=3 THEN 2460
2450 R1=1
2460 IF R<=6 THEN 2480
2470 R2=1
2480 R=2*R+1+0*R1+0*R2
2490 C=CD
2500 RETURN
2510 IF CD<>29 THEN 2530
2520 CD=9:X1=1:X2=1:GOTO 2580
2530 IF CD<>13 AND CD<>21 THEN 2550
2540 X2=X2+3:CD=CD+2
2550 C1=1
2560 CD=CD+1+C1
2570 X1=X1+1
2580 K=0
2590 HO=CD:VE=RD:GOSUB 110:IF A(Y1,X1)<>0 THEN 2610
2600 PRINT " ";:GOTO 2620
2610 PRINT CHR$(A(Y1,X1)+48);
2620 HO=CD:VE=RD:GOSUB 110:IF A(Y1,X1)<>0 THEN 2640
2630 PRINT " ";:GOTO 2650
2640 PRINT CHR$(A(Y1,X1)+48);
2650 IF K=29 THEN 2510
2660 RETURN
2670 IF CD<>9 THEN 2690
2680 CD=29:X1=9:X2=7:GOTO 2740
2690 IF CD<>17 AND CD<>25 THEN 2710
2700 X2=X2-3:CD=CD-2
2710 C1=-1
2720 CD=CD-1+C1
2730 X1=X1-1
2740 K=0
2750 HO=CD:VE=RD:GOSUB 110:IF A(Y1,X1)<>0 THEN 2770
2760 PRINT " ";:GOTO 2780
2770 PRINT CHR$(A(Y1,X1)+48)
2780 HO=CD:VE=RD:GOSUB 110:IF A(Y1,X1)<>0 THEN 2800
2790 PRINT " ";:GOTO 2810
2800 PRINT CHR$(A(Y1,X1)+48);
2810 IF K=28 THEN 2670
2820 RETURN
2830 IF RD<>3 THEN 2850
2840 RD=19:Y1=9:Y2=7:GOTO 2900
2850 IF RD<>9 AND RD<>15 THEN 2870
2860 Y2=Y2-3
2870 R1=-1
2880 RD=RD-1+R1
2890 Y1=Y1-1
2900 K=0
2910 HO=CD:VE=RD:GOSUB 110:IF A(Y1,X1)<>0 THEN 2930
2920 PRINT "-";:GOTO 2940
2930 SR=VAL(CHR$(A(Y1,X1)+48)):GOSUB 300:PRINT SR$;
2940 HO=CD:VE=RD:GOSUB 110:IF A(Y1,X1)<>0 THEN 2960
2950 PRINT " ";:GOTO 2970
2960 SR=VAL(CHR$(A(Y1,X1)+48)):GOSUB 300:PRINT SR$;
2970 IF K=31 THEN 2830
2980 RETURN
2990 IF RD<>19 THEN 3010
3000 RD=3:Y1=1:Y2=1:GOTO 3060
3010 IF RD<>7 AND RD<>13 THEN 3030
3020 Y2=Y2+3
3030 R1=1
3040 RD=RD+1+R1
3050 Y1=Y1+1
3060 K=0
3070 HO=CD:VE=RD:GOSUB 110:IF A(Y1,X1)<>0 THEN 3090
3080 PRINT " ";:GOTO 3100
3090 PRINT CHR$(A(Y1,X1)+48);
3100 HO=CD:VE=RD:GOSUB 110:IF A(Y1,X1)<>0 THEN 3120
3110 PRINT " ";:GOTO 3130
3120 PRINT CHR$(A(Y1,X1)+48);
3130 IF K=30 THEN 2990
3140 RETURN
3150 IF T=1 THEN 3270
3160 V1=0:FOR F=1 TO 9:FOR G=1 TO 9
3170 X=ASC(MID$(Y$,(F-1)*9+G+2))
3180 K1=32:IF X>=94 THEN 3200
3190 K1=K1+44
3200 Z$(F,G)=CHR$(K1):IF X<=0 OR X>=10 THEN 3220
3210 Z$(F,G)=CHR$(X)
3220 A(F,G)=X-96:IF X>=96 THEN 3240
3230 A(F,G)=A(F,G)+32
3240 IF A(F,G)<=0 THEN 3260
3250 V1=V1+1
3260 NEXT G:NEXT F
3270 T=0
3280 GOSUB 1470
3290 G1=-1
3300 GOSUB 1170
3310 U$=LEFT$(U$,1)+CHR$(A(Y1,X1)+48)
3320 HO=CD:VE=RD:GOSUB 110:IF A(Y1,X1)<>0 THEN 3340
3330 PRINT "?";:GOTO 3370
3340 IF VAL(MID$(U$,1,1))>0 THEN 3360
3350 PRINT " ";:GOTO 3370
3360 PRINT MID$(U$,2,1);
3370 HO=CD:VE=RD:GOSUB 110:IF A(Y1,X1)<>0 THEN 3390
3380 PRINT " ";:GOTO 3410
3390 IF VAL(MID$(U$,1,1))>0 THEN 3410
3400 PRINT MID$(U$,2,1);
3410 GOSUB 200:K$=IN$
3420 IF A(Y1,X1)<>0 THEN 3440
3430 HO=CD:VE=RD:GOSUB 110:PRINT " ";
3440 IF IN=0 THEN 3320
3450 K=IN:IF A(Y1,X1)<>0 THEN 3470
3460 HO=CD:VE=RD:GOSUB 110:PRINT " ";
3470 IF K=29 THEN GOSUB 2650
3480 IF K=28 THEN GOSUB 2810
3490 IF K=31 THEN GOSUB 2970
3500 IF K=30 THEN GOSUB 3130
3510 IF K=73 THEN GOSUB 4660
3520 K=K-48:SD=1:GOSUB 400
3530 IF K<0 OR K>9 THEN 3300
3540 IF K=0 OR A(Y1,X1)<>0 THEN 3570
3550 HO=CD:VE=RD
3560 GOSUB 110:PRINT CHR$(K+48)
3570 IF Z$(Y1,X1)<>"L" THEN 3610
3580 HO=6:VE=22:GOSUB 110:SR$="     -*BLOCKIERT*-   "
3590 GOSUB 150:HO=12:GOSUB 110
3600 PRINT " -*BLOCKIERT*- "
3610 SD=10:SV=0:GOSUB 400
3620 IF G1<>0 THEN 3640
3630 RETURN
3640 IF A(Y1,X1)<>0 AND K<>0 OR Z$(Y1,X1)="L" THEN 3310
3650 IF K=0 AND A(Y1,X1)=0 THEN 3310
3660 IF K=0 THEN 3700
3670 GOSUB 1740
3680 IF E1<>0 THEN 3300
3690 V1=V1+1
3700 IF K<>0 THEN 3720
3710 V1=V1-1
3720 A(Y1,X1)=K
3730 IF V1<=80 THEN 3300
3740 HO=CD:VE=RD:GOSUB 110:PRINT CHR$(A(Y1,X1)+48);
3750 HO=6:VE=22:GOSUB 110:SR$=E$+"  ":GOSUB 150:HO=11
3760 GOSUB 110
3770 PRINT" DU BIST FERTIG! ";
3780 SD=30:SV=0:GOSUB 400
3790 HO=6:VE=22:GOSUB 110:SR$="    SPIELEN   ENDE   "
3800 GOSUB 150
3810 HO=12:GOSUB 110:PRINT " ";:HO=14:GOSUB 110
3820 PRINT "PIELEN / ";
3830 HO=24:GOSUB 110:PRINT "NDE ";
3840 GOSUB 1150:IF I<>83 THEN 3880
3850 Y$="00``````````````````````````````````````````````"
3860 Y$=Y$+"```````````````````````````````````"
3870 GOTO 1050
3880 IF I<>69 THEN 3840
3890 GOTO 5130
3900 HO=6:VE=22:GOSUB 110:SR$="   S       E         "
3910 GOSUB 150
3920 HO=11:GOSUB 110:PRINT " ";:HO=13:GOSUB 110
3930 PRINT "TART / ";
3940 HO=21:GOSUB 110:PRINT "INGEBEN "
3950 GOSUB 1150
3960 IF I=83 THEN 3150
3970 IF I<>69 THEN 3290
3980 T=1
3990 G1=0
4000 GOSUB 3300
4010 IF K<>0 AND Z$(Y1,X1)="L" THEN 4000
4020 HO=5:VE=22:GOSUB 110
4030 SR$="FERTIG  BLOCKEN  ZURUECK":GOSUB 150
4040 HO=5:GOSUB 110:PRINT "   ";:HO=9:GOSUB 110
4050 PRINT "ERTIG  ";
4060 HO=17:GOSUB 110:PRINT "LOCKEN  "
4070 HO=26:GOSUB 110:PRINT "URUECK   "
4080 IF Z$(Y1,X1)<>"L" OR K<>0 THEN 4150
4090 HO=5:VE=22:GOSUB 110
4100 SR$="FERTIG  LOESEN  ZURUECK":GOSUB 150
4110 HO=5:GOSUB 110:PRINT "   ";:HO=9:GOSUB 110
4120 PRINT "ERTIG  ";
4130 HO=17:GOSUB 110:PRINT "OESEN  "
4140 HO=25:GOSUB 110:PRINT "URUECK   "
4150 GOSUB 1150
4160 IF I=90 THEN 4000
4170 IF I=70 THEN 3900
4180 IF I=66 THEN 4200
4190 IF I<>76 THEN 4150
4200 IF A(Y1,X1)=0 AND K=0 THEN 4000
4210 IF K=0 THEN 4240
4220 HO=6:VE=22:GOSUB 110:SR$="     -*BLOCKIERT*-   "
4230 GOSUB 150:HO=12:GOSUB 110:PRINT " -*BLOCKIERT*- "
4240 SD=10:SV=0:GOSUB 400
4250 HO=7:VE=22:GOSUB 110:PRINT E$;"  "
4260 W1=0:W2=0:IF K=0 THEN 4280
4270 W1=1
4280 IF K<>0 THEN 4300
4290 W2=-1
4300 V1=V1+W1+W2
4310 A(Y1,X1)=K
4320 Z$(Y1,X1)=" "
4330 IF K=0 THEN 4350
4340 Z$(Y1,X1)="L"
4350 GOTO 4000
4360 GOSUB 100:GOSUB 110
4370 Y$="00``````````````````````````````````````````````"
4380 Y$=Y$+"```````````````````````````````````"
4390 V1=0:FOR F=1 TO 9:FOR G=1 TO 9
4400 A(F,G)=0:Z$(F,G)="L"
4410 NEXT G:NEXT F
4420 HO=6:VE=22:GOSUB 110
4430 SR$="     TASTE DRUECKEN  ":GOSUB 150
4440 HO=12:GOSUB 110:PRINT " TASTE DRUECKEN "
4450 A$(1)=" ------- ------- ------- "
4460 A$(2)=":       :       :       :"
4470 A$(3)=" -------+-------+------- "
4480 A$(4)=" ------- ------- ------- "
4490 L$=" #########################"
4500 HO=5:VE=0:GOSUB 110
4510 SR$="** DAS SUDOKU-PUZZLE **":GOSUB 150
4520 Y1=5
4530 X1=Y1
4540 Y2=4
4550 X2=Y2
4560 RD=11
4570 CD=19
4580 G1=0
4590 E1=G1
4600 V1=G1
4610 U$="  "
4620 E$="                   "
4630 SA=G1
4640 GOSUB 4660
4650 GOTO 3900
4660 HO=7:VE=2:GOSUB 110:PRINT "#########################"
4670 VE=3:GOSUB 110:PRINT "#                       #" 
4680 VE=4:GOSUB 110:PRINT "#    SUDOKU ANLEITUNG   #"
4690 VE=5:GOSUB 110:PRINT "#    ................   #"
4700 VE=6:GOSUB 110:PRINT "#                       #"
4710 VE=7:GOSUB 110:PRINT "#   JEDES SUDOKU HAT 9  #"
4720 VE=8:GOSUB 110:PRINT "#  ZEILEN UND 9 SPALTEN #"
4730 VE=9:GOSUB 110:PRINT "# UND HAT AUCH 9 FELDER #"
4740 VE=10:GOSUB 110:PRINT "#   MIT JE 9 PLAETZEN.  #"
4750 VE=11:GOSUB 110:PRINT "#   SETZE DIE ZAHLEN 1  #"
4760 VE=12:GOSUB 110:PRINT "#  BIS 9 IN JEDE ZEILE, #"
4770 VE=13:GOSUB 110:PRINT "# SPALTE UND JEDES FELD #"
4780 VE=14:GOSUB 110:PRINT "#  OHNE WIEDERHOLUNGEN. #"
4790 VE=15:GOSUB 110:PRINT "#                       #"
4800 VE=16:GOSUB 110:PRINT "#########################"
4810 GOSUB 210
4820 VE=3:GOSUB 110:PRINT "#                       #"
4830 VE=4:GOSUB 110:PRINT "#  PFEILTASTEN     ^    #"
4840 VE=5:GOSUB 110:PRINT "#  ZUM BEWEGEN    < >   #"
4850 VE=6:GOSUB 110:PRINT "#  DES CURSORS     v    #"
4860 VE=7:GOSUB 110:PRINT "#                       #"
4870 VE=8:GOSUB 110:PRINT "#                       #"
4880 VE=9:GOSUB 110:PRINT "# DRUECKE ";CHR$(34);
4890 PRINT "I";CHR$(34);" FUER INFO #"  
4900 VE=10:GOSUB 110:PRINT "#                       #"
4910 VE=11:GOSUB 110:PRINT "#                       #"
4920 VE=12:GOSUB 110:PRINT "#    GESCHRIEBEN VON:   #"
4930 VE=13:GOSUB 110:PRINT "# STAFFORD WHITE / 2006 #" 
4940 VE=14:GOSUB 110:PRINT "#GEAENDERT:  ANDRE BAUNE#"
4950 VE=15:GOSUB 110:PRINT "#                       #"
4960 VE=16:GOSUB 110:PRINT "#  BASICODE: JUAG 2025  #"
4970 VE=17:GOSUB 110:PRINT "#                       #"
4980 VE=18:GOSUB 110:PRINT "#########################"
4990 HO=6:VE=22:GOSUB 110
5000 SR$="   TASTE FUER START  ":GOSUB 150
5010 HO=11:GOSUB 110:PRINT " TASTE FUER START ":GOSUB 210
5020 HO=5:VE=20:GOSUB 110:PRINT "  ";A$(4);"     "
5030 FOR X=19 TO 3 STEP -1
5040 HO=5:VE=X:GOSUB 110:PRINT "  ";
5050 IF (X<>8) AND (X<>14) THEN 5070
5060 PRINT A$(3);"     ":GOTO 5080
5070 PRINT A$(2);"     ";
5080 NEXT X
5090 HO=5:VE=2:GOSUB 110:PRINT "  ";A$(1);"     "
5100 IF G1<>0 THEN 5120
5110 RETURN
5120 GOTO 1470
5130 HO=4:VE=3:GOSUB 110
5140 PRINT "################################"
5150 VE=4:GOSUB 110
5160 PRINT "#                              #"
5170 VE=5:GOSUB 110
5180 PRINT "#      IDEE: STAFFORD WHITE    #"
5190 VE=6:GOSUB 110
5200 PRINT "#    GRAFIK: STAFFORD WHITE    #"
5210 VE=7:GOSUB 110
5220 PRINT "#    CODING: STAFFORD WHITE    #"
5230 VE=8:HO=20:GOSUB 110:SR$="ANDRE":GOSUB 150
5240 HO=4:GOSUB 110:PRINT "#              UND "
5250 HO=28:GOSUB 110:PRINT "***"
5260 HO=31:GOSUB 110:PRINT "    #"
5270 HO=4:VE=9:GOSUB 110
5280 PRINT "#                              #"
5290 VE=10:GOSUB 110:SR$="FREEWARE":GOSUB 150
5300 GOSUB 110:PRINT "# "
5310 HO=16:GOSUB 110:PRINT " WOLLT IHR MEHR?   #"
5320 HO=4:VE=11:GOSUB 110
5330 PRINT "#              BEKOMMT MEHR... #"
5340 HO=4:VE=12:GOSUB 110
5350 PRINT "#                              #"
5360 VE=13:GOSUB 110
5370 PRINT "#STAFFORDWHITE2002(AT)YAHOO.COM#"
5380 VE=14:GOSUB 110
5390 PRINT "#      ZX81AB(AT)GMAIL.COM     #"
5400 VE=15:GOSUB 110
5410 PRINT "#                              #"
5420 HO=5:VE=16:GOSUB 110
5430 SR$="LASST DAS PROGRAMM HEIL":GOSUB 150
5440 HO=4:GOSUB 110:PRINT "#   "
5450 HO=32:GOSUB 110:PRINT "   #"
5460 HO=4:VE=17:GOSUB 110
5470 PRINT "#                              #"
5480 HO=4:VE=18:GOSUB 110
5490 PRINT "#  BASICODE-FASSUNG            #"
5500 HO=4:VE=19:GOSUB 110
5510 PRINT "#     2025 JOYCE-USER-AG E.V.  #"
5520 VE=20:GOSUB 110
5530 PRINT "#                              #"
5540 VE=22:GOSUB 110
5550 PRINT "                                "
5560 VE=2:GOSUB 110
5570 PRINT "                                "
5580 VE=21:GOSUB 110
5590 PRINT "################################";
5600 HO=8:VE=22:PRINT E$;:GOSUB 210
19990 GOTO 950
30000 DATA "00````H`D```DFG``I``C``B```H`E`CADB`I`BI`FG"
30010 DATA "H`EC`H`CEIF`B`B```G``H``G``EBA```H`B````"
30020 DATA "00`I`CH`FB`B``A```IG````I`A````DHC``G`CEH`B"
30030 DATA "`DAF`A``DFC````B`G````HC```I``A`GI`AH`F`"
30040 DATA "00H````G```FB`````HC```HFD`B`DEH``B`F````E`"
30050 DATA "H````G`F``EIH`I`DAF```BD`````AE```G````I"
30060 DATA "00`B`FA`ED````B```FH``H`D`B````BIC``A`FCD`B"
30070 DATA "`HIE`G``HFD````G`E`C``EA```B````HF`IC`E`"
30080 DATA "00``EA`DHIF```BH`````A``E`D``B`I```AH``C```"
30090 DATA "``B``HA```F`C``B`D``E`````BC```IDCH`EB``"
30100 DATA "00DH``I```E```E``G`B`E`D`F`````E```HB`B````"
30110 DATA "```F`CH```E`````F`D`G`I`D``H```H```E``CD"
30120 DATA "00````G```CH``C`B``EEB`FIH``AD`F`HC`B``C`I`"
30130 DATA "D`A``A`BE`C`DA``GDF`CBG``E`A``FC```B````"
30140 DATA "00I`CE```F`AG````EC`D```G``BH`````BGIC`````"
30150 DATA "`F`A`I`F``BD`ECAB`````B````E`A```IA`GD`B"
30160 DATA "00D`I```F`E````G`````CHB`IAD```F`A`E`````E`"
30170 DATA "D`````D`H`C```HEC`ABI`````F````B`A```D`H"
30180 DATA "00B````I``FADC```````F`HB`````````C`H```G`E"
30190 DATA "`D```I`B`````````IF`E```````CBGD``G````H"
30200 DATA "00``A```D`FC```F``E`IG``E````HC```G`F``````"
30210 DATA "`````E`H```CA````C``GI`I``B```DB`C```F``"